
 1000  *SAVE S.KILL.EXEC
 1010  *--------------------------------
 1020  RESET        .EQ $3F2
 1030  SET.PWR.BYTE .EQ $FB6F
 1040  DOS.ENTRY    .EQ $3D0
 1050  EXEC.STATUS  .EQ $AAB3
 1060  *--------------------------------
 1070         .OR $300
 1080         .TF B.KILL.EXEC
 1090  *--------------------------------
 1100  INIT   LDA #KILL.EXEC
 1110         STA RESET
 1120         LDA /KILL.EXEC
 1130         STA RESET+1
 1140         JMP SET.PWR.BYTE
 1150  *--------------------------------
 1160  KILL.EXEC
 1170         LDA #0
 1180         STA EXEC.STATUS
 1190         JMP DOS.ENTRY

